home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGASIC / BASFILES.LZH / CHKFUNC.BAS < prev    next >
BASIC Source File  |  1988-09-10  |  459b  |  25 lines
  1. '$INCLUDE:'QBTOOLS.INC'
  2. '' '$INCLUDE: 'qbtools2.inc'
  3.  
  4. '' DECLARE FUNCTION CheckFunction% (ch%)
  5. '  Check Function Key
  6. ' 
  7. '  1-10  =  Normal Function Keys
  8. '  11-20 =  Shift Function Keys
  9. '  21-30 =  Ctrl Function Keys
  10. '  31-40 =  ALT Function Keys
  11. '
  12.  
  13. FUNCTION CheckFunction% (ch%)
  14.   
  15.     IF ch% > 58 AND ch% < 69 THEN
  16.         CheckFunction% = ch% - 58
  17.     END IF
  18.   
  19.     IF ch% > 83 AND ch% < 114 THEN
  20.         CheckFunction% = ch% - 73
  21.     END IF
  22.  
  23. END FUNCTION
  24.  
  25.